home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aak.d64 / 4eme com (.txt) next >
Commodore BASIC  |  2007-02-04  |  4KB  |  119 lines
  1. 3 REM*****JESUS     MARIE    JOSEPH*****
  2. 5 IFSW=1GOTO15
  3. 10 SW=1:LOAD"E/F 4TH SM",8,1
  4. 15 L=2:H=157:POKE55,L:POKE56,H:POKE598,76:POKE599,L:POKE600,H:CLR
  5. 45 CA=53272:POKE198,0:POKE53280,12:POKE53281,1:POKE646,5:GOTO1750
  6. 100 S=17:ZZ=FRE(0):PRINT"":FORAA=1TO1000:NEXT:T=TI
  7. 105 POKE646,6:SYS598
  8. 1200 T$=" LE ":GOSUB1640:T$="QUA":GOSUB1650
  9. 1210 T$="TRI":GOSUB1650:T$="E":GOSUB1640:T$="ME ":GOSUB1650:T$="COM":GOSUB1650
  10. 1220 T$="MAN":GOSUB1640:T$="DE":GOSUB1640:T$="MENT:":GOSUB1600:PRINT
  11. 1230 T$=" 'TES ":GOSUB1640:T$="PERE ":GOSUB1650
  12. 1240 T$="ET ":GOSUB1650:T$="MERE ":GOSUB1640:T$="HO":GOSUB1640
  13. 1250 T$="NO":GOSUB1640:T$="RE":GOSUB1640:T$="RAS,":GOSUB1600:PRINT
  14. 1260 T$=" A":GOSUB1640:T$="FIN ":GOSUB1650
  15. 1270 T$="DE ":GOSUB1650:T$="VI":GOSUB1640:T$="VRE ":GOSUB1650
  16. 1280 T$="BIEN ":GOSUB1650:T$="LON":GOSUB1640:T$="GUE":GOSUB1640
  17. 1290 T$="MENT.'":GOSUB1710:T$=" C'EST ":GOSUB1640
  18. 1300 T$="LA ":GOSUB1650:T$="PRO":GOSUB1650:T$="MES":GOSUB1640
  19. 1305 T$="SE ":GOSUB1640:T$="DU ":GOSUB1640:T$="SEI":GOSUB1640
  20. 1310 T$="GNEUR.":GOSUB1600:PRINT:T$=" NOUS ":GOSUB1640:T$="DE":GOSUB1650
  21. 1315 T$="VONS ":GOSUB1650:T$="HO":GOSUB1640:T$="NO":GOSUB1640
  22. 1320 T$="RER ":GOSUB1640:T$="NOS ":GOSUB1650:T$="PA":GOSUB1650
  23. 1325 T$="RENTS,":GOSUB1710:PRINT:T$=" LES ":GOSUB1640:T$="AI":GOSUB1650
  24. 1330 T$="MER ":GOSUB1650:T$="ET ":GOSUB1640:T$="LES ":GOSUB1640
  25. 1335 T$="RES":GOSUB1640:T$="PEC":GOSUB1640:T$="TER,":GOSUB1710
  26. 1340 T$=" LES ":GOSUB1640:T$="AS":GOSUB1650:T$="SIS":GOSUB1650
  27. 1345 T$="TER ":GOSUB1640:T$="DANS ":GOSUB1650:T$="TOUS ":GOSUB1650:
  28. 1350 T$="LEURS ":GOSUB1640:T$="BE":GOSUB1640:T$="SOINS,":GOSUB1600:PRINT
  29. 1355 T$=" EN ":GOSUB1640:T$="LEUR ":GOSUB1650:T$="E":GOSUB1650
  30. 1360 T$="TANT ":GOSUB1640:T$="O":GOSUB1640:T$="BE":GOSUB1640
  31. 1365 T$="IS":GOSUB1640:T$="SANTS.":GOSUB1600:PRINT:T$=" A":GOSUB1640
  32. 1370 T$="PRES ":GOSUB1640:T$="DIEU ":GOSUB1600:T$="NOUS ":GOSUB1640
  33. 1375 T$="DE":GOSUB1640:T$="VONS ":GOSUB1600:T$="LES ":GOSUB1640
  34. 1380 T$="AI":GOSUB1640:T$="MER ":GOSUB1700:T$="SUR ":GOSUB1690
  35. 1385 T$="TER":GOSUB1600:T$="RE,":GOSUB1710:T$=" PAR":GOSUB1640
  36. 1390 T$="CE ":GOSUB1640:T$="QUE ":GOSUB1640:T$="NOUS ":GOSUB1640
  37. 1395 T$="LEUR ":GOSUB1640:T$="DE":GOSUB1640:T$="VONS ":GOSUB1710
  38. 1400 T$="LA ":GOSUB1670:T$="VIE ":GOSUB1640
  39. 1405 T$="DU ":GOSUB1640:T$="CORPS,":GOSUB1590:PRINT:T$=" ET ":GOSUB1640
  40. 1410 T$="QU'ILS ":GOSUB1640:T$="ONT ":GOSUB1640:T$="E":GOSUB1640
  41. 1415 T$="TE ":GOSUB1640:T$="CHAR":GOSUB1640:T$="GES ":GOSUB1600
  42. 1420 T$="                             PAR ":GOSUB1600:T$="DIEU ":GOSUB1640
  43. 1422 T$="LUI-":GOSUB1640
  44. 1425 T$="ME":GOSUB1600:T$="ME ":GOSUB1600:PRINT:T$=" DE ":GOSUB1640
  45. 1430 T$="POUR":GOSUB1640:T$="VOIR ":GOSUB1600:T$="QUEL":GOSUB1640
  46. 1435 T$="QUE ":GOSUB1640:T$="TEMPS ":GOSUB1600:T$="A ":GOSUB1640
  47. 1440 T$="NOS ":GOSUB1700:T$="PRE":GOSUB1690
  48. 1445 T$="MIERS ":GOSUB1640:T$="SOINS.":GOSUB1680
  49. 1450 FORAA=1TO5500:NEXT:GOTO1900
  50. 1590 T=T+8*S:PRINTT$;
  51. 1592 IFT>TITHEN1592
  52. 1595 RETURN
  53. 1600 T=T+4*S:PRINTT$;
  54. 1602 IFT>TITHEN1602
  55. 1605 RETURN
  56. 1640 T=T+2*S:PRINTT$;
  57. 1642 IFT>TITHEN1642
  58. 1645 RETURN
  59. 1650 T=T+S:PRINTT$;
  60. 1652 IFT>TITHEN1652
  61. 1655 RETURN
  62. 1660 T=T+4*S:PRINTSPC(25)T$
  63. 1662 IFT>TITHEN1662
  64. 1665 RETURN
  65. 1670 T=T+4*S:PRINTTAB(22)T$;
  66. 1672 IFT>TITHEN1672
  67. 1675 RETURN
  68. 1680 T=T+8*S:PRINTT$;"[145][145]"
  69. 1682 RETURN
  70. 1690 T=T+2*S:PRINTTAB(23)T$;
  71. 1692 IFT>TITHEN1692
  72. 1695 RETURN
  73. 1700 T=T+2*S:PRINTT$
  74. 1702 IFT>TITHEN1702
  75. 1705 RETURN
  76. 1710 T=T+4*S:PRINTT$
  77. 1712 IFT>TITHEN1712
  78. 1715 RETURN
  79. 1750 PRINT"[147]":POKECA,(PEEK(CA)AND240)OR6
  80. 1752 PRINTTAB(8)"[204][197] [209][213][193][212][210][201][197][205][197][160][195][207][205][205][193][206][196][205][197][206][212]
  81. 1755 [153][163]17)"+ + +"
  82. 1760 [151]646,6:[153][163]6)"(null)EXTE, (null)USIQUE ET (null)ROGRAMME*:
  83. 1762 PRINTTAB(10)"[210]ELIGIEUX DE L'[207]RDRE
  84. 1765 [153][163]11)"DE LA (null)ERE DE STR$IEU
  85. 1770 POKE646,2:PRINTTAB(11)"*[205]USIQUE MOYENNANT:
  86. 1772 [153]"(null)USIC ATNSSEMBLER64(LEN)(null)ICK (null)ULLIVAN
  87. 1775 PRINT"C/O [212]HE [212]RANSACTOR, 500 [211]TEELES [193]VE.,
  88. 1777 [153][163]10)"(null)ILTON, (null)NT. (null)9(null) 3(null)7":[129]AA[178]1[164]3000:[130]
  89. 1780 [153][163]11)[199](144)"(null)OUR LENONTINUER - LEN
  90. 1785 GETA$:IFA$=""THEN1785
  91. 1790 IFA$="C"THEN1798
  92. 1795 IFA$<>"C"THEN1785
  93. 1798 POKE646,5
  94. 1800 PRINT"[147]":POKECA,(PEEK(CA)AND240)OR4:PRINT"LE QUATRIEME COMMANDEMENT:
  95. 1802 [153]"'TES PERE ET MERE HONORERAS,
  96. 1805 PRINT"AFIN DE VIVRE BIEN LONGUEMENT.'
  97. 1810 [153]"C'EST LA PROMESSE DU SEIGNEUR.
  98. 1815 PRINT"NOUS DEVONS HONORER NOS PARENTS,
  99. 1820 [153]"LES AIMER ET LES RESPECTER,
  100. 1825 PRINT"LES ASSISTER DANS TOUS LEURS BESOINS,
  101. 1830 [153]"EN LEUR ETANT OBEISSANTS.
  102. 1835 PRINT"APRES DIEU NOUS DEVONS LES AIMER":PRINTTAB(23)"SUR TERRE,
  103. 1840 [153]"PARCE QUE NOUS LEUR DEVONS":[153][163]22)"LA VIE DU CORPS.
  104. 1845 PRINT"ET QU'ILS ONT ETE CHARGES":PRINTTAB(16)"PAR DIEU LUI-MEME
  105. 1850 [153]"DE POURVOIR QUELQUE TEMPS A NOS":[153][163]23)"PREMIERS SOINS.";
  106. 1855 [129]AA[178]1[164]2000:[130]:[137]100
  107. 1900 [153]"LOAD":[151]53272,([194](53272)[175]240)[176]4
  108. 1905 [153][163]14)"REPETER - R
  109. 1910 PRINTTAB(11)"MENU - MUSIQUE - M
  110. 1915 [153][163]14)"QUITTER - Q
  111. 1920 POKE198,0
  112. 1930 GETA$:IFA$=""THEN1930
  113. 1940 IFA$="Q"THENEND
  114. 1950 IFA$="M"THENPRINT"[147]";:GOTO1970
  115. 1960 IFA$="R"THEN45
  116. 1965 IFA$<>"Q"ORA$<>"M"ORA$<>"R"THEN1930
  117. 1970 POKE646,1:PRINT"LOAD"CHR$(34)"MUSIQUE-MENU"CHR$(34)",8
  118. 1980 [153]"RUN":[151]198,3:[151]631,19:[151]632,13:[151]633,13
  119.